home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / BITWAND.PRG < prev    next >
Text File  |  1993-05-04  |  1KB  |  44 lines
  1. *' $Header: $
  2. FUNCTION BitWAnd
  3. PARAMETERS pn_1, pn_2
  4. *----------------------------------------------------------------------------
  5. * NAME
  6. *   BitWAnd() - Bit Wise And of two numbers for 32bit numbers
  7. *
  8. * SYNOPSIS
  9. *   BitWAnd( pn_1, pn_2 )
  10. *
  11. * DESCRIPTION
  12. *   Fm: Kenneth Chan [Zak] 71542,2712
  13. *
  14. * PARAMETERS
  15. *   pn_1       = 1st INT value <= 2 ** 16 - 1
  16. *   pn_2       = 2nd INT value <= 2 ** 16 - 1
  17. *
  18. *----------------------------------------------------------------------------
  19.   private nRet, n1, n2, nHalf1, nHalf2, nBit
  20.   nRet = 0
  21.   n1 = pn_1
  22.   n2 = pn_2
  23.   nBit = 0
  24.   do while n1 > 0 .and. n2 > 0
  25.     nHalf1 = n1 / 2
  26.     nHalf2 = n2 / 2
  27.     n1 = int( nHalf1 )
  28.     n2 = int( nHalf2 )
  29.     if n1 # nHalf1 .and. n2 # nHalf2
  30.       nRet = nRet + 2 ^ nBit
  31.     endif
  32.     nBit = nBit + 1
  33.   enddo
  34.  
  35. RETURN nRet
  36. *-- EOF: BitWAnd( pn_1, pn_2 )
  37. *'----------------------------------------------------------------------------
  38. *' $Log: $
  39. *'----------------------------------------------------------------------------
  40.  
  41.  
  42.  
  43.  
  44.